REPORT Z_MACROS1. 


PARAMETER p_no typei. 
DEFINE macro_print_natural_no. 
DO p_no TIMES. 

write / sy-index. 

ENDDO. 
END-OF-DEFINITION. 


macro_print_natural_no. 


REPORT ZMACROS_WITH_ARGSI. 


DEFINE FACT. 
&2 = 1. 
DO &1 TIMES. 
&2 = &2 * SY-INDEX. 
&1 = &1 + 1. 
ENDDO. 
END-OF-DEFINITION. 


FACT 5 1. 


REPORT Z SUBROUTINES1. 


PERFORM print_first_n_natural_numbers. 
uline. 


PARAMETER p_no typei. 
form print_first_n_natural_numbers. 
DO p_no TIMES. 
write / sy-index. 
ENDDO. 
endform. 


* uline. * this statement is not accessible.... 


REPORT Z SUBROUTINES USING CHAINING2. 
**#4 Cali by value...... 


DATA v_counter TYPE I. 


PERFORM increment_counter USING v_counter. 
WRITE :/ 'The counter After increment is ', v_counter. 


PERFORM increment_counter USING v_counter. 
WRITE :/ 'The counter After increment is ', v_counter. 


PERFORM increment_counter USING v_counter. 
WRITE :/ 'The counter After increment is ', v_counter. 


FORM increment_counter USING VALUE(fp_v_counter) TYPE |. 
fp_v_counter = fp_v_counter + 1. 


WRITE :/ 'now fp_v_counter == ', fp_v_counter. 
ENDFORM. 


REPORT Z SUBROUTINES USING _CHAINING3. 
DATA v_counter TYPE i. 


PERFORM increment_counter CHANGING v_counter. 
WRITE :/ 'The counter After increment is ', v_counter. 


PERFORM increment_counter CHANGING v_counter. 
WRITE :/ 'The counter After increment is ', v_counter. 


PERFORM increment_counter CHANGING v_counter. 
WRITE :/ 'The counter After increment is ', v_counter. 


FORM increment_counter CHANGING VALUE(fp_v_counter) TYPE I. 
fp_v_counter = fp_v_counter + 1. 

write :/ 'now its ', fp_v_counter. 

ENDFORM. 

REPORT Z SUBROUTINES WITH_ARGUEMENTS. 

perform getfactorial USING 3. 

PERFORM getfactorial USING 4. 

PERFORM getfactorial USING 5. 


FORM getfactorial USING x type I. 
DATA v_fact TYPE | value 1. 


DO x TIMES. 

v_fact = v_fact * sy-index. 

ENDDO. 

write :/' factorial of ',x,'=========="', v_fact. 
ENDFORM. 


REPORT Z SUBROUTINES WITH_TWO_ARGS. 


data v1 _fact type l. 
data v2_fact type I. 
data v3 _fact type l. 


perform getfactorial USING 3 v1_ fact. 
write :/ ‘factorial of 3 is ', v1_fact. 


PERFORM getfactorial USING 4 v2_fact. 
write :/ ‘factorial of 4 is ', v2_fact. 


PERFORM getfactorial USING 5 v3_ fact. 
write :/ ‘factorial of 5 is ', v3_fact. 


FORM getfactorial USING x type | v_res type l. 
DATA v_fact TYPE | value 1. 


DO x TIMES. 
v_fact = v_fact * sy-index. 
ENDDO. 

v_res = v_fact. 

ENDFORM. 


